﻿Public Class IsyeriFaaliyetAraRapor
    Inherits ProcessReport

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
        Select Case e.EventType
            Case EventType.Initialize
				Text = "İşyeri Faaliyete Ara Verme Raporu"
                InitialHelp = "İşyeri numarasını girin."
                AddIsyeri()
                Columns = "isyerino(İşyeri No.;c;100),isyeriadi(İşyeri Adı;l;100%),tarih1(Baş.Tar.;d;95),tarih2(Bit.Tar.;d;95),islemtar(İşlem Tar.;d;95)"
            Case EventType.ValidateForm
                Rs = Isyeri.FaaliyetAraVermeRaporu(Local, Input("Isyeri"))
                If Rs.EOF Then Warning("Kayıt bulunamadı.") : Focus("Isyeri") : Exit Sub
                e.Result = True
            Case EventType.ReportHeader
                Report.PrintHeader("İŞYERİ FAALİYETE ARA VERME RAPORU")
            Case EventType.PageHeader
                Report.SetColumns("İşyeri No.;İşyeri Adı;Baş.Tar.;Bit.Tar.;İşlem Tar.", "2;6;2;2;2", "c;l;c;c;c", "--")
            Case EventType.ReportDetail
                Do Until Rs.EOF
                    Report.Print(Rs("isyerino"), Rs("isyeriadi"), Rs("tarih1"), Rs("tarih2"), Rs("islemtar"))
                    Rs.MoveNext()
                Loop
        End Select
    End Sub

End Class
